module IntMap = Map.Make(Int)

let map = IntMap.(empty |> add 1 "hello" |> add 2 "fuck")

let _ = map |> IntMap.find 1

let _ = IntMap.bindings map

module StrSet = Set.Make(String)
